Pie Chart of Top Ten First Product
piefilter1 <- instacart %>%
filter(add_to_cart_order == 1) %>%
count(product_name) %>%
mutate(n = factor(n)) %>%
arrange(desc(n)) %>%
head (10)
piefilter1 %>%
plot_ly(labels = ~product_name, values = ~n,
type = 'pie')
Column
Bar Chart of Order Days
days_of_week <- instacart %>%
select(order_id, order_dow) %>%
arrange(desc(order_dow)) %>%
mutate(order_dow = case_when(
order_dow == 0 ~ "Saturday",
order_dow == 1 ~ "Sunday",
order_dow == 2 ~ "Monday",
order_dow == 3 ~ "Tuesday",
order_dow == 4 ~ "Wednesday",
order_dow == 5 ~ "Thursday",
order_dow == 6 ~ "Friday"
)) %>%
count(order_dow)
days_of_week %>%
plot_ly(x = ~order_dow, y = ~n, color = ~order_dow,
type = "bar")
Scatter of Time of Day Order
tod_order <-instacart %>%
select(order_id, order_hour_of_day, order_dow) %>%
mutate(order_dow = case_when(
order_dow == 0 ~ "Saturday",
order_dow == 1 ~ "Sunday",
order_dow == 2 ~ "Monday",
order_dow == 3 ~ "Tuesday",
order_dow == 4 ~ "Wednesday",
order_dow == 5 ~ "Thursday",
order_dow == 6 ~ "Friday" ))
tod_order %>%
plot_ly(x = ~order_dow, y = ~order_hour_of_day,
type = "scatter", mode = "marker", alpha = 0.5)